home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / dbtext.dxr / 00005_Init code.ls < prev    next >
Encoding:
Text File  |  2000-01-18  |  1.4 KB  |  42 lines
  1. global gDBTextVarList
  2.  
  3. on init windowTitle, mediaName
  4.   if voidp(gDBTextVarList) then
  5.     gDBTextVarList = [:]
  6.   end if
  7.   register(xtra("PrintOMatic"), "PMAT155-212-06011")
  8.   member("title f", 1).text = windowTitle
  9.   if the machineType = 256 then
  10.     set the textHeight of member "title f" to 14
  11.   end if
  12.   member("print title f", 1).text = windowTitle
  13.   member("media f", 1).text = filterNonAlphaDig(mediaName)
  14.   xProp = GetObjProp()
  15.   addProp(gDBTextVarList, xProp, new(script("DB Text Var")))
  16.   MyObj = getaProp(gDBTextVarList, GetObjProp())
  17.   mediaNum = FindMemberNum(mediaName)
  18.   member(mediaNum).lineHeight = 14
  19.   SetMemberNum(MyObj, mediaNum)
  20.   if MyObj.pMemberNum = -1 then
  21.     alert("Document not found! mediaName=" & QUOTE & mediaName & QUOTE)
  22.     CloseMIAW()
  23.   end if
  24.   SetSpriteList(MyObj, [#title: 5, #text: 10, #VBed: 16, #NArrow: 17, #SArrow: 18, #VThumb: 19, #CopyButton: 21, #PrintButton: 22, #SaveButton: 23, #closeBox: 24, #MaxMinBox: 25])
  25.   SetBorderRect(MyObj, [rect(0, 0, 464, 268), rect(0, 0, 640, 411)])
  26.   l = 20
  27.   t = 38
  28.   SetTextRect(MyObj, [rect(l, t, 440, 262), rect(l, t, 616, 403)])
  29. end
  30.  
  31. on GetObjProp
  32.   return symbol(member("media f", "Internal").text)
  33. end
  34.  
  35. on FindMemberNum mediaName
  36.   xMemberNum = the number of member mediaName of castLib "update.cst"
  37.   if xMemberNum = -1 then
  38.     xMemberNum = the number of member mediaName of castLib "dbtext.cst"
  39.   end if
  40.   return xMemberNum
  41. end
  42.